hide mouse:cls 0:autocam off
ObjectNumber=1
SecondObject=2
ImageNumber=1
make object sphere SecondObject,1
load object "models\model.x",ObjectNumber
load image "iron.jpg",ImageNumber
append object "models\extraanim.x", ObjectNumber, total object frames(ObjectNumber)+1
set object interpolation ObjectNumber,50
position object ObjectNumber,0,0,0
position object SecondObject,0,0,0
position camera 0,2,4
point camera 0,0,0
while mouseclick()=0
set cursor 0,0
print "press h to glue object to limb"
if inkey$()="h"
glue object to limb SecondObject,ObjectNumber,7,2
color limb ObjectNumber,7,rgb(255,0,0)
endif
print "press j to unglue object"
if inkey$()="j" then unglue object SecondObject
print "press up arrow key"
if upkey()=1 then move camera 1:while scancode()<>0:endwhile
print "press down arrow key"
if downkey()=1 then move camera -1:while scancode()<>0:endwhile
print "press left arrow key"
if leftkey()=1 then turn camera left 1
print "press right arrow key"
if rightkey()=1 then turn camera right 1
endwhile
while mouseclick()=1:endwhile
if object exist(ObjectNumber)=1 then delete object ObjectNumber
if object exist(SecondObject)=1 then delete object SecondObject
if image exist(ImageNumber)=1 then delete image ImageNumber
end
